#!/usr/bin/perl

use warnings;
my $file="Mensagens.properties";

my ($grupo,$identificacao,$categoria,$texto);

open (FILE,"<$file");
while(<FILE>){
	local $line=$_;

	($grupo,$line)=split(/\./,$line,2);
	($identificacao,$texto)=split(/=/,$line,2);
	$identificacao=~s/\_/ /;
	#chomp($texto);

	if (($identificacao=~/confirmar/i)||($texto=~/confirmar/i)){
		$categoria="De confirmação";
	} else {$categoria="Informativa"};

	print "<mensagem>\n";
	print "\t<grupo>$grupo</grupo>\n";
	print "\t<identificação>$identificacao</identificação>\n";
	print "\t<categoria>$categoria</categoria>\n";
	print "\t<texto>\n\t\t".$texto."\t</texto>\n";
	print "</mensagem>\n";
	
}
close(FILE);

print "\n\n\n---->>> REVISE A COERÊNCIA DOS RESULTADOS!!! <<<----\n\n";
